home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / lang / false11.lha / False_v1.1 / other / modseek.f < prev    next >
Text File  |  1992-09-02  |  930b  |  18 lines
  1. {-------------------------------------------------------------------------}
  2.        { Modseek in FALSE, 23 May 1993 v1.0 by the S.D.I. of FASC! }
  3. {-------------------------------------------------------------------------}
  4. [$8221`57480`11008`\255&]n:{(n.l-n>>8,n.b)}
  5. [36,$65535&\8221`18496`11008`65535&$0=~[$w;!]?%w;!]l:{print hex longword}
  6. [\10-'A+,]x:['0+,]y:[$a:4096/$$9>$x;?~y;?a;\4096*-$a:256/$$9>$x;?~y;?
  7. a;\256*-$a:16/$$9>$x;?~y;?a;\16*-$9>$x;?~y;?]w:{print hex word}
  8. "ModSeek by the SDI of FASC. Seeks all Pro-Tracker mdules in chipmem!
  9. Seekin' from 0 to "4;62+;$u:2-l;!"...
  10. "0$t:[2+t:t;u;=~][t;$;11068`19758`19246`=[$1080-$$$
  11. "--> Module found from "l;!40+0s:32a:[a;1-$a:0=~][$;65535&s;+s:30+]#%s;$+@@
  12. 952+0h:127a:[a;1_=~][a;4-a:$;[$0=~\n;!@][$h;>[$h:]?%]#%%4+]#%
  13. h;1+1024*1084+@+$2x+1-" to "l;!"
  14.     Length = "l;!"
  15.     Name: "34,6h:[h;1-$h:0=~][$;5i:[i;1-$i:0=~][n;!\]#%,,,,4+]#%34,10,]?]#
  16. "Finished! Have a nice day...
  17. "
  18.